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-- File: Bootlmage.Mesa 

-- Last edited by Sandman; May 10, 1978 1:41 PM 

DIRECTORY 

AltoDefs: FROM "altodefs", 
AUoFileDefs: FROM "altof iledef s" . 
BcdDefs: FROM "bcddefs". 
BootCacheDefs: FROM "bootcachedef s" . 
BootmesaDefs: FROM "bootmesadefs". 
ControlDefs: FROM "controldef s". 
FakeSegDefs: FROM "fakesegdef s", 
FileLookupDefs: FROM "f ilelookupdef s". 
FrameDefs: FROM "f ramedef s" , 
lODefs: FROM "iodefs", 
ImageDefs: FROM "imagedefs". 
InlineDefs: FROM "in! inedef s" , 
MiscDefs: FROM "miscdef s", 
OsStaticDefs: FROM "osstaticdefs". 
SegmentDefs: FROM "segmentdef s", 
StreamDefs: FROM "streamdef s" . 
StringDefs: FROM "stringdef s" . 
SystemDefs: FROM "systemdef s" . 
WartDefs: FROM "wartdefs"; 

DEFINITIONS FROM FakeSegDefs, AltoDefs, ControlDefs, WartDefs, BootmesaDefs; 

Bootlmage: PROGRAM [data: POINTER TO BootData] 

IMPORTS BootCacheDefs, BootmesaDefs, FileLookupDefs, FrameDefs, ImageDefs. 

lODefs, MiscDefs, StreamDefs, SegmentDefs, StringDefs, FakeSegDefs, SystemDefs 

EXPORTS BootmesaDefs, FakeSegDefs 

SHARES ImageDefs, ControlDefs - 
BEGIN 

FileHandle: TYPE = SegmentDefs . FileHandle; 
FileSegmentHandle: TYPE « SegmentDefs .FileSegmentHandle; 
DataSegmentHandle: TYPE » SegmentDefs .DataSegmentHandle; 

-- image file management 

mapindex: CARDINAL ♦- 0; 

MapOverflow: PUBLIC ERROR « CODE; 

EnterMapItem: PROCEDURE [base: Address, pages: PageCount] ■ 
BEGIN 
map: POINTER TO ARRAY [0..0) OF normal ImageDefs. Mapltem « 

LOOPHOLE[@data. image. map]; 
IF mapindex > Al toDef s .PageSize - SIZE[ImageDef s. ImagePref ix] THEN 

BootmesaError["MapOverf low"L]; 
IF pages > 127 THEN BootmesaError["Segment too big"L]; 
map[mapindex] ^ ImageDefs .MapItem[base/PageSize, pages, normal[]]; 
mapindex ^ mapindex + SIZE[normal ImageDefs. Mapltem]; 
RETURN 
END; 

EnterMapSegment: PUBLIC PROCEDURE [s: FakeSegmentHandle] » 
BEGIN 

IF s.SwappedIn THEN EnterMapItem[s.\/Maddress, s. Pages]; 
RETURN 
END; 

SegmentToMap: PUBLIC PROCEDURE [s: FakeSegmentHandle] - 
BEGIN OPEN lOOefs; 

octal: NumberFormat = NumberFormat[8 , FALSE , FALSE, 1]; 
base: NumberFormat « NumberFormat[8, FALSE. FALSE, 4]; 
pages: NumberFormat = NumberFormat[8, FALSE, FALSE, 6]; 
address: NumberFormat « NumberFormat[8, FALSE, TRUE, 9]; 
filename: STRING; 

s.ImageBase <- StreamDefs. Getlndex[data. imageStream].page+l; 

WriteNumber[s . ImageBase.base]; 

WriteNumber[s. Pages, pages]; 

WriteNumber[s.VMaddress, address]; 

WriteString[" "L]; 

filename ^ IF s.File - data.vmFile THEN "VM" 
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ELSE FileLookupDefs.GetFileNameClF s .TrueFile«NIL THEN s.File ELSE s.TrueFile]; 
WriteString[ filename]; 
WriteString[" ["L]; 
WriteNumber[s. Base. octal]; 
WriteChar[' ,]; 
WriteNumber[s .Pages, octal]; 
WriteChar[']]; 

IF s. Class ■ code THEN PrintModu1eNames[s]; 
WriteChar[CR]; 
RETURN 
END; 

WriteSwappedIn: PUBLIC PROCEDURE [s: FakeSegmentHandle] RETURNS [BOOLEAN] ■ 
BEGIN 

IF s.SwappedIn THEN WriteSegment[s]; 
RETURN [FALSE] 
END; 

WriteSwappedOut: PUBLIC PROCEDURE [s: FakeSegmentHandle] RETURNS [BOOLEAN] ■ 
BEGIN 

IF '-S.SwappedIn AND s.File = data. imageFile THEN WriteSegment[s]; 
RETURN [FALSE] 
END; 

WriteSegment: PROCEDURE [fs: FakeSegmentHandle] ■ 
BEGIN OPEN SegmentDefs; 
f: FileHandle ♦- fs.File; 
s: FileSegmentHandle; 
sp: POINTER TO Segment BootScriptEntry; 

IF fs « data.vmTableSeg THEN RETURN; 
SegmentToMap[fs]; 

IF f « data.vmFile THEN WriteVMSegment[fs] 
ELSE 
BEGIN 

EnterMapSegment[fs]; 
IF f = data. imageFile THEN 
BEGIN 

IF (f ♦- fs.TrueFile) = NIL THEN ERROR; 
fs.TrueFile <- NIL; 

sp ^ GetSegmentBootLink[fs] + LOOPHOLE[data. tableBase]; 
sp.base ^ StreamDef s .Getlndex[data. imageStream].page+l; 
END; 
s <- NewFileSegment[f,fs. Base, fs. Pages, Read]; 
Swapln[s]; 
IF S t reamDef s. Wr i teB lock[ da t a. images t ream, FileSegmentAddress[s], 

s.pages*PageSize] # CARDINAL[s. pages*PageSize] THEN ERROR; 
Unlock[s]; DeleteFileSegment[s]; 
END; 
RETURN 
END; 

WriteVMSegment: PROCEDURE [fs: FakeSegmentHandle] ■ 
BEGIN OPEN BootCacheDefs; 
p, basepage: PageNumber; 
pi: Pageltem; 
segbase: Address; 
segcount: PageCount <- 0; 
getda: PROCEDURE RETURNS [AltoFileDef s. vDA] ■ 

BEGIN 

fa: AUoFileDefs.FA; 

St reamDef s.GetFA[ data. imageStream.Qfa]; 

RETURN[fa.da] 

END; 

basepage ^ f s.VMaddress/PageSize; 
FOR p IN[basepage. . basepage+fs. Pages) DO 
IF segcount « THEN segbase <- p*PageSize; 
IF GetPageItem[p].p.page « THEN 
BEGIN 

IF segcount § THEN 
BEGIN 

EnterMapItem[ segbase. segcount]; 
segcount ♦- 0; 
END; 
END 
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ELSE 
BEGIN 

segcount «- segcount + 1; 

pi ♦" PageItem[StreaniDefs.GetIndex[clata.imageStream].page+l,getda[]]; 
IF StreamDef s. Writes lock[ data. imageStream, 

SegmentDef s .FileSegmentAddress[GetCS[GetPageItem[p]]], 
PageSize] # PageSize THEN ERROR; 
SetPageItem[p, pi]; 
END; 
ENDLOOP; 
IF segcount # THEN EnterMapItem[segbas9, segcount]; 
RETURN 
END; 

MarklmageSegment: PROCEDURE [fs: FakeSegmentHandle] RETURNS [BOOLEAN] ■ 
BEGIN 

f: FileHandle 4- fs.File; 
IF f j^ data.vmFile AND 
(fs.SwappedIn OR fs. Class ■ code OR f s.CopyToImage) THEN 

BEGIN 

IF fs.TrueFile # NIL THEN ERROR; 

fs.TrueFile ^ f; 

fs.File ^ data. imageFile; 

data. imageFile. segcount <- data. imageFile. segcount + 1; 

IF fs.SwappedIn THEN data. imageFile. swapcount <- data. imageFile. swapcount + 1; 

END; 
RETURN [FALSE] 
END; 

Initializelmage: PUBLIC PROCEDURE « 

BEGIN OPEN ImageDefs, StreamDefs, SegmentDefs, lODefs; 

name: STRING ^ [40]; 

time: AltoFileDef s .TIME <- MiscDef s.DAYTIME[]; 



St r i ngDef s. Ap pen dString[ name, data. imageFileRoot]; 
St ringDefs. Appends tring[name, " .Image"L]; 



CleanupDiskStream[data. imageStream] ; 

SwapIn[data.headerSeg<-NewFileSegment[data. ima geF i le,l, He aderPages, Write]]; 

data, image +- FileSegmentAddress[data.headerSeg]; 

MiscDef s.Zero[d a ta. image, HeaderPages*Al toDef s .PageSize]; 

data. image. prefix. versionident ^ ImageDefs. VersionID; 

data, image. prefix, options <- 0; 

data, image. prefix, type ♦- bootmesa; 

data. image. prefix. leaderDA ^ AltoFileDef s.eofDA; 

data. image. prefix. creator ^ ImageDefs. ImageVersion[] ; 

Initial izeHeap[]; 

[] <- FakeEnumerateSegments[MarkImageSegment]; 

WriteChar[CR]; 

WriteLine[" Image"L]; 

WriteLine["Base Pages Address Source [base, pages]"L]; 

RETURN 

END; 

DeclareSegments: PUBLIC PROCEDURE - 
BEGIN OPEN FakeSegDefs; 

[] <r FakeEnumerateSegments[DeclareSegment]; 
[] ^ FrameDef s.EnumerateGlobalFrames[DeclareCodeLink]; 
[] <- FakeEnumerateSegments[FindModuleNames]; 
WriteScriptSegments[]; 
RETURN 
END; 

PrintModuleNames: PROCEDURE [seg: FakeSegmentHandle] « 
BEGIN 

s: SegHandle; 
name: NameList; 

FOR s <- segs, s.next UNTIL s ■ NIL DO 
IF s.seg - seg THEN EXIT; 
REPEAT 

FINISHED ■> BootmesaError["Messed up segment names"L]; 
ENDLOOP; 
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FOR name *- s. modules, name. next UNTIL name ■ NIL DO 

lODefs.WriteCharC ]; 

lODefs.WriteString [name. name]; 

ENDLOOP; 
RETURN 
END; 

Segmentltem: TYPE ■ RECORD [ 
next: SegHandle, 
seg: FakeSegmentHandle, 
modules: NameList]; 

SegHandle: TYPE ■ POINTER TO Segmentltem; 

Nameltem: TYPE ■ RECORD [ 
next: NameList. 
name: STRING]; 

NameList: TYPE « POINTER TO Nameltem; 

segs: SegHandle *- NIL; 

FindModuleNames: PROCEDURE [seg: FakeSegmentHandle] RETURNS [BOOLEAN] - 
BEGIN OPEN SystemDefs; 
name: STRING ^ [60]; 
s: SegHandle; 
ni: NameList; 
FindFrames: PROCEDURE [frame: GlobalFrameHandle] RETURNS [BOOLEAN] ■ 

BEGIN 

IF BootCacheDefs.READ[@frame.codesegment] # seg THEN RETURN[FALSE]; 

ModuleName[f rame, name]; 

ni <- AllocateHeapNode[SIZE[NameItem]]; 

nit <- [s. modules, AllocateHeapStringfname. length]]; 

s. modules <- ni ; 

StringDef s.AppendString[ni . name, name]; 

name. length <- 0; 

RETURN[FALSE] 

END; 
IF seg. Class # code THEN RETURN[FALSE]; 
s <- AnocateHeapNode[SIZE[SegmentItem]]; 
St 4- Segmentltem[segs, seg, NIL]; 
segs <r s; 

[] <- FrameDefs.EnumerateGlobalFrames[FindFranies]; 
RETURN[FALSE] 
END; 



END... 



